home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1998 June / Software of the Month Club 1998 June.iso / pc / dos / games / dom1 / rand.rpp < prev    next >
Text File  |  1998-04-15  |  104b  |  10 lines
  1. {Random Numbers}
  2.  
  3. randomize;
  4.  
  5. var n: number;
  6.  
  7. loop(n=1 to 20)
  8.   println(rand(1, 1000));
  9. endl;
  10.